From: Noah Friedman Date: Tue, 2 Nov 2010 22:51:25 +0000 (-0700) Subject: (byte-recompile-file): If bytecomp-arg is nil, do not ask to recompile files that... X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5822 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=21e42dfe86578a7dd4ccd87af0f7ce20c0c9cbc2;p=emacs.git (byte-recompile-file): If bytecomp-arg is nil, do not ask to recompile files that are not already compiled, and do not recompile them. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5a2647b7a34..ad6cc42caf4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-11-02 Noah Friedman + + * emacs-lisp/bytecomp.el (byte-recompile-file): If bytecomp-arg is + nil, do not ask to recompile files that are not already compiled, + and do not recompile them. + 2010-11-02 Chong Yidong * emacs-lisp/package.el (package-initialize): Ensure that diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 952b69f7ce3..aec6bdb2f35 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1626,9 +1626,10 @@ or 'no-byte-compile if the file did not need recompilation." (or bytecomp-force (file-newer-than-file-p bytecomp-filename bytecomp-dest)) - (or (eq 0 bytecomp-arg) - (y-or-n-p (concat "Compile " - bytecomp-filename "? ")))) + (and bytecomp-arg + (or (eq 0 bytecomp-arg) + (y-or-n-p (concat "Compile " + bytecomp-filename "? "))))) (progn (if (and noninteractive (not byte-compile-verbose)) (message "Compiling %s..." bytecomp-filename))